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1* Purpose : Given the coordinates of a point (X, Y) as a pair of float- 
ing point numbers, compute the number of x and y plotter increments 
necessary to move the pen from its present position to the given 
point. This subroutine is to be used in conjunction with the "Line 
Plotter," "Point Plotter," and "Plot X then Y" subroutines. 

2. Restrictions : The coordinates of the point must be normalized float- 
ing point numbers, and should be consistent with scale factor and 
available plotting space. 

3. Method 

3.1 Let 

X * the value of the x coordinate of the point to which the 
pen is to be moved 

X ■ scale factor, defined to be the number of units per 
inch, for the x coordinate 

x .■ the value of the x coordinate of the point to which the 
pen is to be moved in units of plotter increments (1/1X 
inch ) 

Xp ■ the value of the x coordinate of the present position of 
the pen in units of plotter increments 

Y, Y , y, and y p are similarly defined 

S* 

3.2 The floating point value X is divided by X /100, and converted to 
a fixed point rounded integer to give x; y is similarly computed. 
The differences 

-A X - x - X- 

^ Y - y - y p 

are the required number of plotter increments. Finally, x and y 
replace Xp and y p respectively. 

3.3 The subroutine must be initialized by supplying the two scale 

factors, X and Y , and the initial position of the pen. 
s s 

h» Use : This subroutine is intended to convert floating point data 
to the form required by the "Line Plotter," Point Plotter," and 
"Plot X then Y" subroutines. Thus, calling this routine will be 
followed by calling one of the above mentioned routines. 

ii.l Initialization: 

3efore plotting, the pen should be positioned manually and the 
following values supplied to the subroutine . This is to be 
accomplished by storing them in the V-loop and transferring to 
h + 30. 
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7770 X - x coordinate of the initial pen position 
72 Y ■ y " ii ii ii n it 
7ii X - x scale factor in units/inch 

76 Y - y " " " " 
s 

X, Y (and X , Y ) are given in arbitrary units of the users 

choice: the scale factors X . Y are the desired number of 

s s 
these arbitrary units per inch of pen motion. 

Iu2 Calling Sequence: Transfer to the origin of the subroutine (L ) 
with the following word in the accumulator: 

+ 00 XXXXO + 00 YYYY 

where XXXX » location of floating point X coordinate 
Yyyy ■ " " " " Y " 

Return to the next location with^X in the A-register andziY in 
the R-register as fixed point integers at b - 39. ^ X and^Y are 
the number of plotter increments necessary to move the pen from its 
present position, to the position specified by the coordinate values 
X and Y. Note that the output of this subroutine in the exact form 
required by "Line Plotter," "Point Plotter," and "Plot X then Y" 
subroutines. 

iu3 Applications 

Ju3*l In what follows it is assumed that initialization has been accomplished 
in accordance with Jul. 

Let 

L ■ origin of "Floating Point to Plotter Increment Conversion" 
° subroutine 

LP - origin of "Line Plotter" subroutine 

PP -origin of "Point Plotter" subroutine 

PXY - origin of "Plot X then Y" subroutine 

KW - + 00 XXXX 0+00 YYYY 

iu3.2 To plot straight line from present pen position to point (X,Y): 

CLA KW . 

TRA L 
o 

TRA LP 

RETURN 
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U • 3 • 3 To move the pen, in the raised position, to the point (X,Y): 

CLA KW 

TRA L 
o 

TRA PP 

RETURN 

k.3»U To plot a straight line from present position (X_, Y p ) 
to point (X,Y p ), followed by a straight line to (X,Y)j 
i.e., to plot a step in a bar graph: 

CLA KW 

TRA L 
o 

TRA PXY 

RETURN 

1;«U Reset: 

At anytime the pen may be returned to the initial position 

CLA L + 56 
o 

TRA L 
o 

TRA PP 

RETURN 

5. Coding Information : 

5.1 Locations used: 

This routine occupies 57o locations (i.e., L to L + 56). It 

o oo 

destroys both loops and all registers. All locations are used 
and none are erasable. 

5»2 Constants 

L + U2, U3 0.5 (floating point) 

L ♦ 5h, $S 100.0 (floating point) 
5»3 Variables 

L ♦ UO X (fixed point, binary scale of 39) 

M y ( " " " " H " ) 
P 
L Q + hh t h$ X g /I00 (floating point) 

♦ 146,1*7 Y Q /100 ( » » ) 
♦50,51 X q (floatingpoint) 

♦ 52,53 Y Q ( » M ) 
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5«U This subroutine is relocatable by method of AN-076 

6. Remark 

Sometimes it is desired to make a decision based on the value of the 
x and/or y coordinate in units of plotter increments. For example, 
if one is plotting a function Y (x)?0 such that Y-> as x •- - i 
he may wish to terminate the plot when Y becomes less than the re- 
solution of the plotter, i.e., when Y ■ zero plotter increments. For 
this purpose it is to be noted that upon return from this subroutine 
the value of x and y, in units of plotter increments, is contained 
in locations L ♦ UO and L ♦ Ul respectively (fixed point at b - 39). 
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0000.0 
-f CTL 
CTV 
XAR 
ADD 
CLA 
STA 
FCA 
CTL 



+ 
+ 
+ 
+ 

+ 
+ 

+ 



0010.0 
+ TPL 
TRA 
XAR 



OUD 

XAR 
STO 
+ -5T0 
+ CTL 



0020.0 

+ FDV 
+ FSB 
+ FAD 
+ ALS 
+ STA 
+ XAR 
+ STO 
+ XAR 

0030.0 
+ SAX 
+ STA 
+ FST 

+ FST 
+ FDV 
+ FCA 
+ FST 
+ TRA 



0000.0 

00H0.0 

0000.0 

77&.0 
7760.0 

7766.0 
0000.0 
0010.0 



7761.1 

7762.0 

0000.0 

776^.0 

0600.0 
00H0.0 

in - 

66eo.o 



7776.0 
7772.0 

0601 lo 
1 



0041 .0 
0000.0 



0600! I 



I 



760.0 

637.1 

0056.0 
0052.0 
005^.0 

III 6\o 
0000.0 



+ SAX 
+ TRA 



+ 
+ 
+ 
+ 
+ 



TRA 
STO 
STA 

70 

FDV 



+ TRA 



+ FSB 
+ FAD 
+ ALS 
+ STA 
+ ARS 
+ SU3 
+ FCA 
+ TRA 



7760.0 

7763.O 

6000.1 

O027.0 

0016.1 

0000.0 

777^.o 
7760.0 



7772.0 
2.0 
1.0 
6U.1 

^7.0 
7770.0 
1252.0 



II 



7C0.0 



+ TPL 7762.0 
+ T^A 7762.I 
-*• XAR OOCO.O 
+ SUB 7765.O 
+ CLA 7770.0 
+ ARS 60H7.O 
+ SUB 777I.O 
+ TRA 3657.O 



+ ADD 00C2.0 
+ f 0A 7770.0 
+ FCA 7772.0 
+ F 0A 7774.0 
+ FST CO^.O 
+ FDV OC5H.O 
+ CLA 00p6.0 
+ T^A 3041 .0 



oono.o 








- CLA 


0000.0 


- CLA 


02C5.1 


- CLA 


OCOO.O 


- CLA 


0-310.0 


+ ARS 


0000.0 


- CLA 


OOOC.O 


+ CLA 


0000.0 


- CLA 


0000.0 


+ 75 


3H12.0 


- 75 


3*112.0 


- CLA 


000c. 


- CLA 


0003 . 1 

7534.0 

6003 . 1 


+ TZE 
- CLA 


753^.0 

6000.0 


- TZE 

- CLA 


OO5O.O 








- ARS 


0000.0 


- CLA 


0000.0 


+ CLA 


0000.0 


- CLA 


0001 .0 


- ARS 


0000.0 


- CLA 


COOO.O 


+ CLA 


0000.0 


- CLA 


0001 .0 


+ 62 


0000.0 


- CLA 


0000.0 


+ CLA 


0000.0 


- CLA 


0003.1 


+ CLA 


0050.0 


+ CLA 


0052.0 



